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This manual Is ona of thraa manuals dtvalopad foi usa In oparating 
tha Satallita Praaza Foracast Systam (S.F.F.S.). Tha thraa systaa 
manuals ara: 

1. Systaa Configuration Daflnitlon 

2. Systam Softwara Docuaantatlon 

3. Systam Oparatlons and Troublashootlng 

This Is tha S.F.F.S. Systaa Softwara Dootmactatlon Manual* It 
dascrlbas all softrara wrlttan for and usad by S.F.F.S. 

Tha following section gives a brief description of each pr e y and 
its relation to tha others. 

The third section contains the full docuaantatlon for each program. 
These are not complete program listings, but only tha descriptions 
of title, author, purpose, methodology, and operation of the programs. 
Complete listings may be printed from the files that ara stored on 
the S.F.F.S. computer at Ruskln, Fla. 

Additional Introductory Information can be found In the introduction 
to the Operations and Troubleshooting manual. 
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ProgTMi Daaorlptlons 

LOGO - display the S.F.F.S. system logo on the color video monitor. 
CLEAR - clears the color monitor to black. 

TEXM - local or remote message transmission program for communication 
with Gainesville personnel. 

NFTE - convert from encoded map file names to standard Julian date 
and time format. 

ETNF - convert from standard Julian date and time format to encoded 
map file name format. 

OFTNF - convert the map names using old format to new map naming 
conventions. 

TABLE - prints a copy of observed temperatures combined with PMODL 
predictions. 

NAPS - prints the satellite maps currently on the system. 

EEOIT - edit the AWS observed keystation data files. 

TVMAP - display observed and predicted satellite maps. 

SFFS - user Interface to the automated SFFS system. 

TSMDL - forecast future satellite images. 

PMODL - forecast keystation temperatures. 

GAPX - acquire satellite Images from NESS over 1200 bauci line. 

AWS - acquire data from the automated weather stations. 

GETMP - acquire satellite Images from the HP computer in Gainesville 
over the 96 OO baud DS-1000 link, 

TVQIK - subset of TVMAP that displays the most recent observed map 
(non-lnteractlve) . 

TEXS - DS-1000 support program for program TEXM. 

SCHED - SFFS system scheduler. 

SISCM - transfer SFFS parameters to programs that cannot support HP 
system common. 

LCOGR - SFFS programs to log file or logical unit utility. 
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I . REVISIONS - 


Last compiled and loaded; 4:09 PM WED., 9 FEB., 1983 
Last edited by EDIT; <830408. 1448> 

Mike Lucido - 18 December 1981 

Updated to work with DVFOO (ENCODE statement) 

Robert A. Dillon - 10 January 1982 
Added fractional part to time in K-file. 
(ITM(4)+ITM(3)/60.0) 

Robert A. Dillon - 12 January 1982 

Changed all WRITE(6... to WRITE(1... so log is 

printed on system console when scheduled by SFFS. 

Robert A. Dillon - 23 April 1982 

Included SFFS common data file. Moat recent K-file 
is updated in system common. 

Robert A. Dillon - 14 June 1982 
Re-formatted and re-commented program text. 

Renamed program to AWS. 

Robert A. Dillon - 22 October 1982 
Added more documentation, 

Robert A. Dillon - 25 October 1982 

Second parameter of RMPAR is the "SAVE” option. 

If 0 then data is put in k-flle, otherwise data is simply 
printed on the terminal. The time of day does not effect 
whether or not the data is saved, 

Robert A. Dillon - 27 October 1932 
Changed format of printed output. 

Robert A. Dillon - 15 November 1932 
Get L‘J from RMPAR. 
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, or POOP Q^!AUiy 

Robert A. Dillon - 09 February 1982 
Gets cartridge from SFFS system commr-. 

Uses LOGGR, 

II. LANGUAGE - 


HP FTN4X (Fortran 4X) 

Must use FTN4X to be compatible with Ruskln system. 

III. AUTHOR STATISTICS - 


Fred Stephens and Steve Lasley 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Laboratory 
2116 HS-PP Bldg. 

Gainesville, FL 32611 


IV. SPECIAL HARDWARE REQUIRED • 


HP-I 2966 A Buffered asynchronous data communications interface^ 


V. OPERATING SYSTEM - 


Hewlett-Packard HP RTE-IVB or VI 
Special MIT supplied driver DVFOO 


VI. PROGRAM DESCRIPTION - 


SUBROUTINES 


ASIST : Call AWS and retrieve data 

LUDIAL - lu of dialer 

LUMODM - lu of modem 

PnO.TJM - AWS phone number 

JIUMLEN - number of digits in phone number 

GOOF - error return 

DIALER - returned dialer status 

3U?2 - data from AWS 

BUILD : Append data from AWS to keystation file 

ARRAY - converted AWS data 
NAM1 - keystation file name 
SAVE - save/print flag 
LU - lu of printer 
AUTO - future expansion 

CONVT : Convert AWS readings into instrument readings 

5UFR - AWS unprocessed data 
BU? - converted AWS data 
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LOGIT : Passes status information to program LOGGR 

IPGMN - Program name 

MSG - Message to put Into log file 

LEN • Length of message in 1o bit words 

EHHOR : Handle FMP errors 

lERR - error code 

NAME - File name in which error occured 
ICODE - index into FMP error codes 

FIXIT : Check for bad AHS data and replace it with nearest 
available neighbor or - some fudge factor 

ARRAY - Converted AWS data 

LO - lu of printer 

AUTO - Automatic or manual operation 


PROGRAM FLOW DESCRIPTION 

- Initialise status table 

- Initialize ARRAY so FIXIT can spot "no data" stations 

- Open file =PHONE which contains phone numbers 

- Loop thru each of the keystations to decode phone numbers 

- Call ASIST up to three times to retrieve data from 
keystations 

- Store data recieved into ARRAY 

- Call CONVT to convert data to Instrument readings 
(wlndspeed, temperatures « net-radlatlon) 

- Call FIXIT to check for obviously bad data and substitute 

- Call Build to append data to most recent keystation file 

- Update system variables with most recent k-flle name 


VII. COMPILE AND LOAD INSTRUCTIONS - 


Compile, load, and save (SP)j TR,*AWS 
Load and save only: TR,*AWS,LO 


VIII. EXECUTION INSTRUCTIONS 


RU,AWS,a,n 
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wharet oia>1 for autoaatlQ oparatlon. 
otherwise, manual operation. 

nsO if data is to be saved in kfile (default). 
ns1 if data Is to printed at the ter*.inal. 
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II. 

LANGUAGE - 
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HP Fortran 4X. 


III. 

AUTHOR STATISTICS - 



Ferris G. Johnson, Jr. 
University of F)orlda 
Fruit Crops Department 
Climatology Laboratory 
2116 Horticulture Science ■ 
Gainesville, Florida 32611 

Plant Pathology Bldg. 

IV. 

SPECIAL HARDWARE REQUIRED - 



HP 91200B TV Interface K'.. 
Direct drive RGB monitor. 


V. 

OPERATING SYSTEM - 



Hewlett-Packard RTE-IVB or 

RTE-6/VM. 

VI. 

PROGRAM DESCRIPTION - 



CLEAR erases the TV monitor screen (sets it to black). 


VII. COMPILE AND LOAD INSTRUCTIONS - 


To compile and load use the file manager transfer file 
•CLEAR: 

:TR, •CLEAR 
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•VIII. 

EXECUTION INSTRUCTIONS - 



Simply: 



:RU, CLEAR 



The screen will be erased to black. 
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II. LANGUAGE - 
HP-FTN4X 
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III. AUTHOR STATISTICS - 


Robert A. 01 lion • 

Coaputer Programaer III 

University of Florida * j 

Institute of Food and Agricultural Scle-'jes • 

Fruit Crops Department • | 

Climatology Research Laboratory • I 

2116 Horticulture Science - Plant Pathology Building • 

Gainesville, Florida 32611 • 


IV. 


i 

i 


SPECIAL HARDWARE REQUIRED - 


none 


V. OPERATING SYSTEM - 
RTS-IVB or RTE-6/VM 

VI. PROGRAM DESCRIPTION - 

Convert the source, date, and time to map name. 
Needs $3DLIB 


PRXHAM FLOW DESCRIPTION 


- Call GETST to get 40 characters from run string 


I 

I 

1 

I 
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- If run string is less then 10 characters print 
message Indicating required information then quit. 

- Call CAPS to convert characters to upper case letters. 

- Call CDTMN to convert run string to encoded map name. 


VII. COMPILE AND LOAD INSTPUCTIONS - 

Transfer to *ETNF to compile, load and save program 


VIII. EXECUTION INSTRUCTIONS - 


;RU,ETNF,s mo/da/yr hr: mi 

where: s = source of map 

use M for Maryland, W for GOES West, 
or E for GOES East [default] 
mo = the month in CUT (1-12) 
da = the day in CUT (1-3D 
yr = the year in CUT (70-??) 
hr = the hour in CUT (0-23) 
mi = the quarter hour in COT (00,15,30,45) 


leeeeeee#' 
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QUAUTY 
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I . REVISIONS - 


> NOVEMBER 30,1981 

> UTILIZING DRIVER DVFOO 

' LAST EDITED; NOVEMBER 30,1981 

f 

* Fred Stephens - 1982 

* Translation dx abled to allow for extended scale being 

* sent from NMC. 

t 

' Fred Stephens - March 1.1983 

^ Modified to operate In new SFFS program scheduling 

* environment (le returns map name thru system common). 

> 

^ Modified map naming convention to new standard. 

f 

> Deleted scheduling of TVMAP by program. 

t 

> Changed phone file to =PH0NE. 

^ Set default request code for NMC. 

' Set default cartridge list for Ruskln configuration. 

II. LANGUAGE - 


HP 21MX ASSEMBLER 


III. AUTHOR STATISTICS - 


AUTHORS; FRED STEPHENS, COMPUTER PROGRAMMER II 
STEVEN LASLEY, COMPUTER PROGRAMMER I 

UNIVERSITY OF FLORIDA 
IFAS 

FRUIT CROPS DEPT. 

CLIMATOLOGY RESEARCH CENTER 
2116 HSPP BUILDING 
GAINESVILLE, FLORIDA 32611 


IV. SPECIAL HARDWARE REQUIRED - 
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A. 12966 ASYNCHRONOUS COMMUNICATION CARD 

B. 12587 AUTO-DIAL CARD 

C. VADIC MODEM 

D. 2645A TERMINAL (OPTIONAL) 


OPERATING SYSTEM - 


ORIGINA'- 
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page 

quality 


RTE-II, RTE-III, RTE-IVB, or RTE-6/VM 


VI. PROGRAM DESCRIPTION - 


PROGRAM GAP WAS DESIGNED TO COLLECT PREPROCESSED 
GEOS SATELLITE IR DATA THAT IS ARCHIVED IN WASHINGTON 
D. C. THE PROGRAM BEGINS BY CHECKING ITS PHONE FILE 
(r PHONE) TO OBTAIN THE NECESSARY PHONE NUMBER. 

IF THE PHONE NUMBER SHOULD CHANGE IT MAY BE CORRECTED 
BY MODIFYING = PHONE WITH THE RTE INTERACTIVE EDITOR. 

UPON CONNECTION WITH WASHINGTON, THE MAP(S) IS COLLECTED 
INTO A FILE, 4MAP4, AND THE PHONE IS DISCONNECTED WHEN 
THE REQUESTED DATA IS OBTAINED. 

FURTHER PROCESSING IS THEN DOME ON 4MAP4 TO ALTER 
THE MAP(S) RECEIVED INTO A FORM EXPECTED BY THE MAP 
DISPLAY PROGRAMS. THE FOLLOWING REFORMATTING IS 
ACCOMPLISHED (NOT NECESSARILY IN THIS ORDER): 

1. THE EPHEMERIS FILE, WHICH PRECEDES THE DATA 
LINES FOR EACH MAP AND CONTAINS PERTINENT INFO ABOUT THE 
MAP, IS MOVED TO AFTER THE MAP PROPER. 

2. CONTROL CHARACTERS IN THE MAP AND EPHEMERIS FILE 
ARE REMOVED SO THE REFORMATTED MAP IS PRINTABLE. THIS 
IS ACCOMPLISHED BY SUBROUTINE STRIP. 

• 3. A TRANSLATE TABLE IS BUILT SO THAT IF THE 

• CHARACTER ASSIGNMENT TABLE SHOULD CHANGE W/O NOTICE, 

• A TRANSLATION WILL TAKE PLACE TO TRANSCRIBE THE MAP 

• INTO THE CHARACTER ASSIGNMENT EXPECTED BY THE SFFS 

• DISPLAY PROGRAMS. 

4. EACH MAP IS NAMED AND READ INTO ITS OWN DISC 
FILE FOR ARCHIVAL* 

“ 5. THE MAP YEAR IS RETRIEVED AND PLACED AS THE 
SECOND RECORD IN THE MAP FIL'. 

DURING THE ENTIRE TIME GAP IS EXECUTING, IT REPORTS 
TH? STATUS OF ITS VARIOUS ACTIVITIES TO THE SCHEDULING 
TERMINAL. WHEN GAP IS FINISHED CREATING A NEW FILE 
FOR EACH MAP OBTAINED, IT BEGINS SCHEDULING THE 
PROGRAM TVMAP WITH THE MAPS TO DISPLAY THEM 
SEC’JHNTIALLY IN THE OF.OER THEY WERE RECEIVED. UPON 
DISPLAYING THE LAST MAP, GAP FINISHES. 

•=r OUTLINE OF EXECUTION ==• 

I. INtTIALTCATION 

A. QUERY SFFS ANSWER FILE (^PHONF.) 
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1. RETRIEVE WASHINGTON PHONE NUMBER 

B. INITIALIZE ASYNCHRONOUS COMMUNICATIONS CARD & DIALER 

C. DIAL & CHECK FOR ERRORS 

1. DIAL WASHINGTON DC 

2. TEST FOR ERRORS; REDIAL IF NECESSARY 

a. DIALING ERROR? 

b. REMOTE PHONE BUSY? 

c. LOCAL PHONE BUSY? 

D. CREATE TEMPORARY STORAGE FOR MAP DATA (&MAP4) 

II. DATA ACQUISITION 

A. TRANSMIT REQUEST FOR DATA 

B. ACQUIRE DATA 

1 . READ RECORD 

2. CHECK MODEM REPORT IF CONNECTION BROKEN 

3. WRITE RECORD TO DISC FILE (4MAP4) 

4. REPEAT, SCANNING FOR TERMINATION UNTIL COMPLETE 

III. REFORMATION AND ARCHIVAL 

A. COPY EPHEMERIS FILE TO 4$JUNK FOR TEMPORARY STORAGE 

1. HANDLE ONE RECORD AT A TIME 

2. REPLACE ANY CONTROL CHARACTERS WITH BLANKS 

3. SCAN FOR "GHEY SCALE” (TEMP ASSIGNMENT TABLE) 

B. BUILD TRANSLATE TABLE 

C. LOOK FOR HEADER (DATE AND TIME) 

1. IF DUPLICATE MAF, TRY TO POSITION TO NEXT MAP 

2. CREATE MAP FILE 

3. STORE NAME IN QUEUE 

4. POSITION TO START OF MAP 

D. BEGIN MAP PROCESSING 

1. HANDLE ONE RECORD AT A TIME 

2. REPLACE ANY CONTROL CHARACTERS WITH BLANKS 

3. CHECK IF RECORD IS BULLETIN NUMBER 

■ 4. TRANSLATE MAP RECORD TO R»»»»» 

E. HANDLE END OF MAP PROCESSING 

1. COPY 4$JUNK TO R»»»»» AFTER MAP PROPER 

IV. END OF FILE PROCESSING 

A. INSURE THERE IS ENOUGH DATA TO SAVE MAP; PURGE 
R»»»»* FILE IF INSUFFICIENT DATA 

B. COPY EPHEMERIS FILE TO R»»»*» FILE 

C. DISPLAY MAPS IN QUEUE 


»r= ERROR CODES ==» 

« — M 


ERROR 


CODS 

EXPLANATION 

ACTION 


01 

OPEN FILE ERROR FOR = PHONE 

INSURE THAT = PHONE 
FILE EXISTS 

02 

POSNT ERROR FOR = PHONE 

CORRUPT FILE OR 
IS NOT COMPLETE 

FILE 

03 

READ? ERROR FOR = PHONE 
ATTEMPTING TO READ NMC 
PHONE NUMBER 

CORRUPT FILE OR 
IS NOT COMPLETE 

FILE 


r ' ■ ■■ 


f . ‘ » 

f ' t-f i i € ' f 
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04 

HRITF OR READF ERROR FOR 
sPHONE 

CORRUPT FILE OR FILE 
IS NOT COMPLETE 

05 

READF ERROR FOR =PHONE 
ATTEMPTING TO READ NMC 
REQUEST CODE 

CORRUPT FILE OR FILE 
IS NOT COMLETE 

06 

GREAT ERROR ATTEMPTING 
TO CREATE &MAP& FILE 


07 

AVAILABLE CARTRIDGES 
EXHAUSTED 

MAKE ROOM FOR MAPS 
BY BACKING UP FILES 
ON TAPE AND PURGE OLD 
FILES 

08 

OPEN FILE ERROR FOR &MAP& 

POSSIBLY CORRUPT FILE 
PURGE FILE AND RETRY 

09 

URITF ERROR FOR &MAP& 
DURING MAP ACQUISITION 

EXECESSIVE AMOUNT OF 
DATA 

10 

RWNDF ERROR FOR ^P& 

????????????????????? 

11 

GREAT ERROR FOR &$JUNK 

????????????????????? 

12 

NO ROOM ON SPECIFIED 
CARTRIDGES 

PURGE ANY UNNECESSARY 
FILES AND PACK 

13 

OPEN ERROR FOR 4$JUNK 

POSSIBLY CORRUPT FILE 
PURGE AND RESTART 

14 

READF ERROR FOR &MAP& 


15 

REWIND ERROR FOR 4$JUNK 
DURING EOF PROCESSING 

????????????????????? 

16 

PURGE ERROR FOR R##ff## 

????????????????????? 

17 

PURGE ERROR FOR 4$JUNK 


18 

READF ERROR FOR 4MAP4 
WHILE ATTEMPTING TO 
ACQUIRE GREY SCALE 
PART 1 

POSSIBLE MODIFICATION 
BY NMC TO MAP FORMAT 

19 

READF ERROR FOR iMAP4 
WHILE ATTEMPTING TO 
ACQUIRE GREY SCALE 
PART 2 

SEE ERROR 18 

20 

NO Z TIME ON HEADER 

SEE ERROR 18 

21 

DATE GROUP ERROR 

SEE ERROR 18 

22 

WRIT? ERROR FOR R##### 
WHILE WRITING HEADER 

997999979999799999999 

23 

WPITF ERROR FOR 
WHILE WRITING lEAR 

999999997999999999999 


■ _ - I r. A..i iS 

COR QUALITY 
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24 

READF ERROR WHILE 
ATTEMPTING TO POSITION 
TO SOM 

SEE ERROR 18 

25 

READF ERROR FOR 4MAP4 
WHILE ATTEMPTING TO 
LOCATE NEXT MAP 

??????????????!?????? 

26 

GREAT ERROR FOR R«##«# 

????????????????????? 

27 

NO ROOM ON CARTRIDGES 

SEE ERROR 12 

28 

RWNDF ERROR FOR 4$JUNK 
DURING EOM CONDITION 

????????????????????7 

29 

READF ERROR FOR 4$JUNK 
DURING EOM CONDITION 

????????????????????? 

30 

WRITF ERROR DURING EOM 
COPYING EPHEMERIS DATA 
TO R»#### 

UNEXPECTED ADDITIONAL 
EPHEMERIS DATA 

31 

RWNDF ERROR FOR A$JUNK 
ON COMPLETION OF EOM 

????????????????????? 

32 

WRITF ERROR FOR R##### 
AFTER RECORD TRANSLATION 

POSSIBLE TRANSUTION 
ERROR. TRANSUTION 
WOULD BE SPECIFIED 

VII. 

EXTERNAL SUBROUTINES - 



DTIME - OUTPUT TIME 4 DATE ON 
TVMAP - DISPLAY ACQUIRED MAPS 

LU 6 

VIII. 

SUBROUTINES - 



STRIP - CONVERT ALL CONTROL CHARACTERS IN A RECORD 
TO BLANKS 

COPY - COPY EPHEMERIS DATA FROM FILE 4$ JUNK TO 
CURRENT MAP. BEING PROCESSED 
CLEAR - INITIALIZE RECORD TO BLANKS 
JUMP - EXECUTED ONLY FOR DUPLICATE FILE NAME, 
ADVANCES TO THE NEXT MAP IF ONE EXISTS 
SERCH - SEARCHING ROUTINE THAT SCANS FOR FIRST 

OCCURENCE OF A PHRASE AND RETURNS FLAG IF 
FOUND 

MAPNM - CONVERTS BINARY MONTH, DAY, YEAR AND ASCII 
HOUR TO SIX LETTER MAP FILE NAME. 

DELAY - DELAY SUBROUTINE WHICH WASTES TIME FUSSING 
LIGHTS ON COMPUTER. 


VII. COMPILE AND LOAD INSTRUCTIONS - 
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Transfer to *GAPY to compile, load and SP GIPY 

VIII. EXECUTION INSTRUCTIONS - 
RU,GAPy 


- ■ ' ■ . Prm !3 

OF k-^uck QUALITY 
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I. REVISIONS - 


Last edited by EDIT/1000: <830406. 1424> 


II. LANGUAGE - 


Hewlett-Packard Fortran 4X (FTN4X). ^ 

ORJGfNAL PAGE IS 

III. AUTHOR STATISTICS - OF POOR QUALITY 

Robert A. Dillon 
University of Florida 
Fruit Crops Department 
Climatology Laboratory 

2116 Horticulture Science - Plant Pathology Bldg. 
Gainesville, Florida 32611 


IV. SPECIAL HARDWARE REQUIRED 


Modem connection via DS/1000-IV 


V. OPERATING SYSTEM - 


Hewlett-Packard RTE-IVB or RTE-6/VM. 


VI. PROGRAM DESCRIPTION - 


GETMP is used to transfer maps from the Gainesville computer 
system to the Ruskln system. Executing GETMP In Ruskln 
Invokes the execution of GETMS In Gainesville which passes the 
latest map to GETMP, which In turn saves the data on the 
Ruskln system. 


VII. COMPILE AND LOAD INSTRUCTIONS - 


To compile and load use the file manager transfer file *GETMP: 
:TR, •GETMP 


S.F.F.S. Software Documentation 


Program Documentation 


VIII. EXECUTION INSTRUCTIONS - 


To tranfer the latest map from Gainesville to Ruskln simply 
run GETMP and the map will be transferred. The map will be 
stored on cartridge 5 or, if 5 is full, on cartridge 6. 

If both cartridges are full, they will be erased. For this 
reason, only map data should be stored on cartridges 5 and 6* 


OFMK'.'l 
OF POOR 


Quality 
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I. REVISIONS - 

Ust edited by EDIT: <830409. 1 100> 

II. LANGUAGE - 

IS 

FORTRAN 41 Qp pQQR QUALITY 

III. AUTHOR STATISTICS - 


Fred D, Stephens 
Scientific Programmer 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 32611 


SPECIAL HARDWARE REQUIRED - 


Program KEDIT was designed to run on a 264X display station 
or any crt terminal that recognizes cursor and display control 
commands (I.E. cursor home and clear screen ). 

KEDIT will run on any terminal but the output will be somewhat 
degraded due to the methodology of displaying the data. 


Commands must begin in the first column after the prompt 
returned by KEDIT. Valid delimiters between bada items 
are all ASCII characters except the period or decimal point, 
and the dash or minus sign. 


OPEPATING SYSTEM - 
RTE-IV3 OH RTE-VI/VM 
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VI. PROGRAM DESCRIPTION - Qfr pQOR QUALITY 


Notes: 

- References to SF and DF refer to source file 

and destination files respectively 

- Pending line refers to the last record in DF 

KEDIT starts by prompting for the keystation file name. 
It will then open or create file SF. After SF is open 
data from the keystation file is copied into SF. IF 
no keystation file name vas specified then SF is 
filled with keystation header records. KEDIT then opens 
or creates file DF. 

The driver section of KEDIT has the following format 

•»«•> 

• - prompt operator for command 

• - call parsing routine 

• > branch to routine to handle command 

e»»e< 


KEDIT commands broken down 


Insert line : write input line to DF 

List line(s): read from SF, print to terminal, write to DF 


Exchange : read pending line from DF then search for a 

: value within +- 0.05 of exchange field. Write 
: back to DF. 


Position to : 
record ; 


- copy SF to DF 

- close SF 

- rename SF to TEMP 

- rename DF to SF 

- rename TEMP to SF 

- open SF and DF 

- read SF into DF until at desired position 


Abort 


close SF and DF then stop 


End edit 
replacing 
old copy 


copy SF to DF 

close SF and DF 

purge keystation file 

rename DF tp keystatlonb file name 


End edit 
creating 
new copy 


j - copy SF to DF 

; - close SF and DF 

: - rename DF to specified name 


List pending: - position back 1 record in DF 

line : - read record from DF and print to terminal 


Replace : - position to pending line 
pending line: - write input data to DF 


fs 

or PQOU QJAUYY 

D«lete : read specified nunber of records from SF 

llne(s) : without writing to DF unless It is a header 

t record 

Back up : backup specified number of records In DF and 
llne(s) : print pending line. 


COMPILE AND LOAD INSTRUCTIONS - 


Transfer to command file *KEDIT to compile » load and SP 
KEDIT. 

VIII. EXECUTION INSTRUCTIONS - 


KEDIT COMMANDS 
BU,KfcUlT 

As soon as KEDIT Is scheduled It will request the keyslte 
file name. 

KEYSITE FILE NAME? 

>name 

If name Is a valid keyslte file then KEDIT Initializes the 
work file areas (DF-destlnatlon file , SF-source file) 
and makes a copy of the keyslte data file. 

If neune Is blank KEDIT will assume that a keyslte file Is to 
be created and will prompt the user for the Julian day and 
year of the data to be entered. 

>ENTER JULIAN DAY AND YEAR OF KEYSITE DATA [JDAY] , [YEAR] 

A keyslte data file will be created with the parameters 
specified by the user after which normal editing will proceed. 

If name Is a colon KEDIT will terminate before any 

Initialization. 


LIST I 

COMMANDS I DESCRIPTION 


I NC'E: EACH KEYSITE HEADING IS COUNTED AS ONE 
I LINE. ATTEMPTS TO ALTER A HEADING ARE 

I IGNORED. 

I 

I DISPLAY PENDING LINE 

I [Position destination file back one record. 

I Read the record In the destination file and 
I list to user] 

I 

I LIST n LINES TO lu (DEFAULT lu IS USER) 

I [Copy n records from source file to dest- 
I inatlon file and list to lu] 


P 


Ln,lu 
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I 

OF POUrt QUALITY 



/ 

I 

LIST NEXT LINE 




I 

[Copy one racord froa souroa fila to daat- 




I 

T 

ination flla. List naa ponding Ilna.] 



/n 

X 

I 

SPACE DOWN n LINLo 




I 

T 

[ Naw ponding Ilna will ba dlaplayad ] 



n 

X 

I 

GO TO LINE n 




I 

[Copy sodTca fila into dastinatlon flla ^nd 




I 

axohanga naoas. Road n llnaa of souroa flla 




I 

and wrlta to dastinatlon flla. List naw 




I 

T 

ponding lino] 



-n 

X 

I 

DELETE n LINES 




I 

[Position souroa flla foward n linos. List 




I 

T 

naw ponding line] 



A 

n 

X 

I 

GO BACK n LINES IN DESTINATION FILE 




I 

[Got currant position In destination flla 




I 

and compute naw n froa racord one. Bxaouta 




I 

I 

'GO TO LINE n' command] 



LINE EDITS 

I 

DESCRIPTION 



R data 

I 

I 

REPLACE PENDING LINE WITH data 




I 

[Position destination flla back one record. 




I 

T 

Write data to destination file] 



' ' data 

I 

I 

INSERT data AFTER PENDING LINE 




I 

T 

[Write data to destination file] 



G t9/r9/t» 

I 

I 

REPLACE FIELD(S) WITHIN LINE 




I 

[Replace t# occurrences of f# with r#. 




I 

I 

Default for t# is all occurrences.] 



TERMINATION 

I 




COMMANDS 

I 

DESCRIPTION 



A 

I 

I 

ABORT KEDIT 




I 

T 

[Close files and stop] 



ER 

1 

I 

REPLACE OLD FILE WITH NEW FILE 




I 

RETAINING OLD NAME 




I 

[Copy remaining source file into destination 




I 

file. Close source file and destination 




I 

file. Purge source file and old keysite 




I 

file. Rename destination file to keysite 




I 

T 

data file name] 



ECnane 

1 

I 

CREATE name AND STORE EDITED FILE 




I 

[Close files, rename destination file to 




I 

I 

name]* 
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•IF naiB« DOES NOT CORRESPOND TO THE DAY AND YEAR OF THE 
KEYSITE DATA* A WARNING MESSAGE WILL BE ISSUED TO THE OSCR. 




ii 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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I . REVISIONS - 

Last edited by EDIT/ 1000: 


IV. 


<830405. 1802> 


II. LANGUAGE - 

Hewlett-Packard Fortran-4X (FTN4X) 

III. AUTHOR STATISTICS - 


ORiGSi\74L PAG£ {3 
OF POOR QUALITY 


Robert A. Dillon 
University of Fli -lda 
Fruit Crops Department 
Climatology Laboratory 

2116 Horticulture Science - Plant Pathology Bldg. 
Gainesville, Florida 32611 


SPECIAL HARDWARE REQUIRED - 
None. 


V. OPERATING SYSTEM - 

Hewlett-Packard RTE-IVB or RTE-6/VM. 

VI. PROGRAM DESCRIPTION - 


LOGGR is used to route all S.F.F.S. operation and error 
messages to a common device or file. LOGGR gets the device 
or file name from S.F.F.S. system common. Character strings 
are passed to LOGGR via Class I/O calls and LOGGR simply 
prints the string to the device or file. If the user changes 
the log file, LOGGR will close the old file/device and open 
the new file/device. If the file already exists then it is 
positioned to the end after opening it. 

VII. COMPILE AND LOAD INSTRUCTIONS - 
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To complla and load usa tha file manager transfer file •LOQGRi 

• 

n 

* 

1 

I = 


jTR,»L0GGR 

• 

n 

1 

* e 

•VIII 

EXECUTION INSTRUCTIONS - 

• 

n 

1 ^ 


LOGGR runs automatically whenever the computer Is turned on 

• 

^ 5- 


or Is re-booted. It does not Interact with the user. 

• 



If necessary It may be run from the system console by first 

• 

» * 

i : 


running file manager then running LOGGR t 

• 

n 

3* ‘ 


<press [ RETURN ]> 

• 



•RU,FMGR 




jRU, LOGGR 

• 

s ' 
m i 


:EX 

• 

• 



, quauTv 


omo^wAL 

OF POOR QUAU1Y 
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I. REVISIONS - 

— ORlGir<:AL 

OF POOR gUAUT, 

II. LANGUAGE - 


HP Fortran MX. 


III. AUTHOR STATISTICS - 


Robert A. Dillon 
Unlvsralty of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 3^611 


IV. SPECIAL HARDWARE REQUIRED - 


RG3 monitor 

3 HP-91 2008 interface cards 


■V. PP:'RATl\'G SYSTEM - 

• A. i RTS cpenatlng systems with HP driver DVA13 

»VI. PFOGRAM DESCRIPTION - 

" siihrout ines and functions 

* FILIN: fill a rectangle with or without a skew 


ISUFR - point buffer 

18 - number of points in rectangle 
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IX, lY - starting corner 
ILEN - length 
IWID - width 
ISLNT - slant factor 
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ARC t draw an arc 

IX, lY - center location 
IRAD - radius 

IFRST - starting X coordinate 
LAST - ending X coordinate 
IBUFR - point buffer 
IB - number of points 
ISIGN - direction of arc 


DRAWS: draw large S 

IBUFR - point buffer 
DRAWF: draw large F 

IBUFR - point buffer 

VIDLU: establish lu of monitor ( HP TV library ) 

LU - logical unit of monitor 

ERASE: clear monitor ( HP TV library ) 

POINT: plot points on monitor ( HP TV library ) 

IBUFR - point buffer 

IB - number of points to be ploted 

ICOLR - color of points 

VECTR: plot a vector on monitor ( HP TV library ) 

IX, I Y - starting point of vector 
IDIR - direction of vector 
LEN - length of vector 
ITYPE - type of vector 
ICOLR - color of vector 

CHAR : write alphanumerics on the monitor 

IX, lY - starting point of the character string 

IBUFR - integer array of packed ASCII characters 

ISIZE - size of characters 

IDIR - orientation of characters 

NUMBR - number of characters in string 

ICOLR - color of characters 


PROGRAM FLOW DESCRIPTION 


- initialize monltc' 

- clear monitor 
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- draw border using calls to VECTR 

- draw Florida outline using coordinates In data statement 
and calls to VECTR 

- write 'SATELLITE FREEZE FORCAST SYSTEM' on monitor 
using call to CHAR 

- call DRAWS and DRAWF to draw In large block letters 
'SFFS' 

- draw satellite using calls to ARC and VECTR 

- write 'NASA/NOAA/IFAS' on monitor using call to CHAR 

VII. COMPILE AND LOAD INSTRUCTIONS - 
Transfer to *LOGO to compile, load and SP 

VIII. EXECUTION INSTRUCTIONS - 

RU,LOGO 
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REVISIONS - 





• 

II 
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II. LANGUAGE - OF POOR QUALITY 


HP FTN4X 


III. AUTHOR STATISTICS - 


Robert A. Dillon 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 32611 


IV. SPECIAL HARDWARE REQUIRED - 


none 


V. OPERATING SYSTEM - 


RTE-IVB or RTE-6/VM 


VI. PROGRAM DESCRIPTION - 


MAPS lists a catalog of all maps on disc. The file names 
are printed as well as the date, time, and source of the 
data. Map files are recognized by their security code 
of 1 . If a file has a security code of 1 and the name 
does not properly decode then it is ignored. 


VII. COMPILE AND LOAD INSTRUCTIONS - 


Transfer to *MAPS to compile, load and save program 
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•VIII. 

EXECUTION INSTRUCTIONS - 



RU.MAPS 
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I . REVISIONS - 


II. LANGUAGE 


HP-FTN4X 


III. AUTHOR STATISTICS - 


Robert A. Dillion 
Computer Programmer III 
University of Florida 

Institute of Food and Agricultv ’al Sciences 
Fruit Cropj Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 32611 


IV. SPECIAL HARDWARE REQUIRED - 


nr>ne 


V. OPERATING SYSTEM - 


RTE-IVB or RTE-6/VM 


VI. PROGRAM DESCRIPTION - 


Convert a map name in the new format to English. 
SUBROUTINES 


- GETST ! get run time string (system library) 
iSJr'R - destlnatiou buffer 
len - number of characters to read 
ILOG - actual number of characters read 
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- CAPS : Convert lowercase letters to uppercase (BDLIB) 

IBUFR - source and destination buffer 
len - number of words in IBUFR 

PROGRAM FLOW DESCRIPTION 


- Call GETST to retrieve run string 

> If a map name was not specified write message then stop 
• Call CAPS to capitalize all letters. 

- Determine data origin of satellite data from first letter 

- check if second letter is within valid range. If invalid flag 
error and print message. If valid decode year using the 
algorithm: 

lYEARr 1 970*3econdletter-64 » 


- cheek if third letter is within valid range. If Invalid flag * 
error emd print message. If valid decode month using the < 

algorithm: * 

i 

IM0N=thir dletter-64 • 

- check if forth letter is within valid range. If invalid flag 

error and print message. If valid decode day using the 
algorithm: ' 

IDAY=fort hletter-64 • 

- check if fifth letter is within range. If invalid flag 

error and print message. If valid decode hour using the ' 

algorithm: 

IH0UR=(fift hletter-64)*100 • 

- check if sixth letter is within range. If invalid flag 
error and print message. If valid decode minute using 
algoritiim: 

IH0UR=IH0UR>(3ixth letter-6i^)*15 • 

- stop if error flag set 

- print date and time of specified map name 

- check for Invalid day and print error message if incorrect 


COMPILE A\'D LOAD INSTRUCT lON.S - 


Transfer to *NFTE to compile, load and save program 


Vlir. EXECUTION INSTRUCTIONS - 


ORieiNAt ® 
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BO , NFTE ,mapnaaie 

where mapname is the 6 character map name 
to be converted 
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I. 


REVISIONS - 


19 JULY 1982 - BOB DILLON 

Added use of run string and call to CAPS 

to convert input to upper case. 

Must be loaded with $BDLIB 


ORIGINAL PAGE4S 
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II. LANGUAGE - 
Fortran 4X 


III. AUTHOR STATISTICS - 


Programmer: David V. Williams 
Fruit Crops Department 
University of Florida 
Gainesville, Florida 32601 


IV. 


SPECIAL HARDWARE REQUIRED 
None. 


V. 


OPERATING SYST2i - 
RTE-IVB or RTE-VI/VM 


VI. 


PROGRAM DESCRIPTION - 


This program is des 
obtain a map name i 
data necesary by a 
entering map names 
the new format. T" 
the latter is best 
map naming format w 
encoded instead of Just three by the old conventions. The 


igned to be an interactive tool to 
n the new format (SYMDHm) given either the 
single query or by calling the program up and 
in the old format (MDDDHH) to be converted to 
e former is best for single calls and 
for multiple calls. The changes in the 
ill allow six Items of interest to be 


program is virtually secretary-proof and error messages are 
sent to the user if he/she enters bad data. If the prograun is 
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j 

used for multiple calls , exit Is obtained by entering a colon. * ^ 

: I 

VII. COMPILE AND LOAD INSTRUCTIONS - • 

Transfer to *OFTNF to compile, load and save program. • 

VIII. EXECUTION INSTRUCTIONS - • 

RO.OFTN? e ' 

e 

Enter map file name and year upon request. * 


ORIGINAL PAGE IS 
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I. 


REVISION'S - 


. Dillon - 16 February 1983 
operational outpOt. 


- Robert A 

Mo lined operational outpQt 
Send mesaages and output to LOQGR. 

- Robert A. Dillon - 28 April 1982 

Set Qost recent k-file from SFFS syatcia ooouBon 
instead of SFFSAF. 

Don't run If number of consecutive runs of DARCM 
Is less than 3 (KDMCR In SFFS common). 

- Robert A. Dillon - 12 January 1982 
Changed LUPR to 1 when scheduled by SFFS. 
(F/LUPR=1) 

- Robert A. Dillon - 1b October 1981 
Added feature to analysis mode. If Input 
for N£ Is zero then the current station 
Is skipped and the program continues with 
the next station. 

- Robert A. Dillon - 06 October 1931 
Corrected conversion to Kelvint was 273*12 
In DArIX, changed to 273.16. 

- Robert A. Dillon - ?? September 1981 
Error correcting routine added (F'BDERR). 


II. bANC'.'AC- - 

?0?:?AN IV (COMPATABLE WITH ANSI X3.9-1966) 

III. A-THOR STATISTICS - 

OPISINAL AUTHOR; DR. R. SUTHERLAND 

TTPrE':: REVISION BY; STEVEN E. LASLEY 

COMPUTER SYSTEMS ANALYST II 
UNIVERSITY OF FLORIDA 
I FAS BLDG 175 

GAINESVILLE, FLORIDA 32611 
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INSTALLATION; UNIVERSITY OF FLORIDA 
FRUIT CROPS DEPARTMENT 
CLIMATOLOGY RESEARCH CENTER 
2116 HORT. -SCI. /PLANT PATH. BLDG. 
GAINESVILLE, FLORIDA 32611 


IV. SPECIAL HARDWARE REQUIRED - 
NONE 


OWQINAL PAQf t$ 
^ POOR QUALITY 


1} 

V. OPERATING SYSTEM - • 


ANY OPERATING SYSTEM CAPABLE OF UTILIZING 
STANDARD FORTRAN IV (AS DESCRIBED UNDER CATAGORY 
II. ABOVE). 


VI. PROGRAM DESCRIPTION - 


PMODL was designed to accept the following Inputs 

1 . Surface teaiperature 

2. 10cm and 50cm soil temperatures 

3« 1«5M, S.OM, and 9.0M air temperatures 

4. 9.0M wind speed 

5. Net radiation 

6. Dew point 

The Inputs are expected in the form of a 
keystation file. These files are named Kjndyr 
where jnd is the Julian day and yr is the two 
digit year. The files are type 2 and consist of 
hourly data from each of 12 keystations !two 
stations being missing or "ghost" stations). 

PMODL was designed to run beginning at 8:00 pm 
EST after data has been collected for three 

consecutive hours beginning at 6:00 pm EST. 

After this time, PMODL may be run every hour 
during the night as long as the most recent 
’ hours of consecutive data exist in the 
Kv-'ystatlon file. PMODL outputs hourly forecasted 
nocturnal temperatures for each of the 
keystations from the time the model is run, up to 
3:00 am EST in the morning. This information is 
output to a single "KEYDAT" file which Is updated 
each time th“ model is run. The Information is 
not archived, as PMODL can reproduce it givers the 
proper keystation file name. As to how the model 
N’orks, that is not understood. There is, 
however, reason to believe that the program does 
not function as the model was designed. 

EXTERNAL SUBROUTINES - 


DAFIX , XLFIT ,M0DLX , STRT , SOILP , EVAL , TERR * 
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SUBROUTINE EXECUTION - OF POOR QUALITY 

CALL DAFIX(NCODE,KEY) 

Wher* NCODEa a parametar to control whether 
aubroutln* XLFIT's output la 
used (aea oommant in XLFIT call) 

KEY: tha station numbar (1-10) 

CALL XLFIT ( ICODE , IDATA ,NS ,NE , YINT ,SLP) 

Whare TCODEs deteroinea whether a linear 
or log regression la performed 
IDATA: a parameter that determlnea 

whioh input the regression ia on 
(9=wind, llsradlation) 

NS: a number corresponding to which 
hour is the first of the three 
used as the predictive base for 
the numerical procedures. 

3 = POOOest, 4 = 2100 eat, etc. 

NE= this refers to the last of the 
three hour predictive base. 

YINT: the Y-intercept of the regression 
SLP: the slope of the regression 
CALL M0DLX(NM0D,M0DE,NS,NE,NRUN) 

Whore NMOD: an option (maybe not used) 
which is currently 1 
MODE; another option which controls 
flow in MODLX. Should be 4. 

NS: a number corresponding to which 
hour Is the first of the three 

used as the predictive base for 
the niwierlcal procedures, 

3 = 2000est, 4 ; 2100 est, ect, 

NE: this refers to the last of the 
three hour predictive base. 

NRUN: the length of the model run. 

l.e. 15 since tha model predicts 
from 6pm to 8im (15 hours) 

CilLL STRT(MODE,NS,NE,Y,P) 

Where MODE: flow control option 
(should be a 4) 

NS: a number corresponding to which 
hour la the first of the three 
used an the predictive bisc for 
the nuuierlcal procedures. 

3 : 2000est, 4 : 2100 ost, e?t . 

NF.- this refers to the last of the 
throe hour pf'odletlve be"*'?. 

Y; relator to the soil tomperature 
profile (either 1 or .5 on steps) 

P: calculated model constants 
(sea Ci^iO-ments In STRT) 

CALL SO I LP ( MODE , NS , NE , Y ) 

Where MODE flow control opt Ion 
(should ba 4) 

NS- a number corresponding tc which 
hour Is the first of the three 
used as tha predictive base '■^r 
the numerleal procedures. 
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3 = 2000est, 4 = 2100 eat) act. 

NE= this refers to the last of the 
three hour predictive base. 

Y= relates to soil temperature profile 
(either 1 or .5 cm steps) 

CALL EVAL(NC-t-1,NHRS,KEY»KDAT,IHC) 

Where NE+1= refers to the hour after 

the three hours in the predictive 
base for the ntmterical procedures. 
NHRS= the # of hours of data available 
KEY= keysite « (1-10) 

KDAT= day and year of kflle being used 
IHC= "YE” if a hardcopy is desired, 

or "NO" if no hardcopy is desired 
CALL IERR(IER,2HXX, LOCATION#) 

Where IER= FMGR error code 

2HXX= 2 letters relating to 

the call where error occurred 
L0CATI0N#= an arbitrary # which 

pin-points the error location 


VII. COMPILE AND LOAD INSTRUCTIONS - 


Transfer to *PMODL to compile, load and save program. 


VIII. EXECUTION INSTRUCTIONS - 


Manual execution 


RU,PM0DL 

Answer the following questions on demand 

- Keystation file name (AWS keystation file name) 

- Operational run or Analysis run (0 or A) 

- If you want a printout of the results (Y or N) 

Automatic execution 


RU,PM0DL,-1 


* 


ORIGINAL PAGE fS 
OF POOR QUALITY 
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I. REVISIONS - 


This revision calls LOGIT to log messages. 

This revision uses and **0R** operation for the AFTER parameter. 
This revision uses temporary file to RP and OF programs. 

Last edited by EDIT/IOOOt <830403.l8p2> 


II. LANGUAGE - 

Hewlett-Packard Fortran-VX (FTN4X) 


ORIGINAL PAGE IS 
OF POOR QUALITY 


III. AUTHOR STATISTICS - 


Robert A. Dillon 
University of Florida 
Fruit Crops Department 
Climatology Laboratory 

2116 Horticulture Science - Plant Pathology Bldg. 
Gainesville, Florida 32611 


•IV. SPECIAL HARDWARE REQUIRED - 

•; None. 

•V. •OPERATING 3ISTEM - 

• Hewlett-Packard RTB-IVB or RTE-6/VM. 

•VI. PROGRAM DESGRlPTION - 

• S.F.F.S. Scheduler 

• This program controls and monitors the automatic aspect of 

• S.F.F.S. ■ 
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Bp intarpratlns the values in systea cooaon, SCHEO schedules 
programs for execution at the proper times and aborts them if 
necessary. 

User access and control of SCHED is accomplished through 
program SFFS. The user define which programs run, what time 
they run, in what order they run, and how long they run. 
llhen these values are set, SCHED performs the desired tasks. 

SCHED does not interact with the user. It first runs when 
the computer is turned on or re>booted and runs again every 
5 seconds. An outline of SCHED 's operation follows) 

!• Wait 5 seconds. 

2. If the ON/OFF variable is set to OFF then go to 1 . 

3. Check the status of each program that is supposed to be 
running. 

A. If a program is active and has overrun its time limit 
then abort it [CALL EXEC(6...)]. 

B. If a program has completed on its own then set bit 
flags for other programs that it is supposed to cue. 

4. Check each program's start time against the system clock 
and the bit flags, and schedule those that should be run 
rCALL EXECCiOi..)]. 

5. Go to 1. 


VII. COMPILE AND LOAD INSTRUCTIONS 


To compile and load use the file manager transfer file ■SCHED* 
:TR, •SCHED 


•VIII. EXECUTION INSTRUCTIONS - 


SCHED Is net executed be the user. It is run automatically 

from the WELCOM file at boot-up. If necessary, it can be run 
from the system console by first running file manager then 
running SCHED: i 

•RU,FMQH • 

:RU, SCHED 
:EX 
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I. REVISIOMS - 


» 25 October 1982 - Robert A. Dillon 

Fixed bug. TIME function was picSclng up TLIMIT as BEAL 
Instead of INTEGER. Added IMPLICIT INTBGER«2 (A-Z) to all 
modules . 

26 October 1982 - Robert A. Dillon 

Added documentation. ORiGfWAL PAGE U 

OF POOR QUALITY 

II. LANGUAGE - 


Hewlett-Packard Fortran 4X (HP FTM4X). 


III. AUTHOR STATISTICS - 

Robert A. Dillon 

University of Florida 

Fruit Crops Department 

Climatology Laboratory i 

2116 Horticulture Science - Plant Pathology Bldg. 

Gainesvill/ , '5‘lorida 32611 


>-IV. SPECIAL HARDWARE REQUIRED - 


None . 


►V. OPERATING- SYSTEM 


HP RTE-IVB or RTE-6/VM 


VI. : PROGRAM DESCRIPTION - 


Prograa SFFS is part of the Satellite Freeze Forecast 
Systea developed by the University of Florlda/Inst. 
of Food and Agricultural Sciences/Fruit Crops 
Departnent/Climatology Laboratory with NASA and NOAA. 

SFFS is the user's primary la terf ace to the systeo. 

■/fith it, the user controls the functions performed in the 
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automated mode. These functions include scheduling 
programs and setting key system variables. 

SFFS Is an editor. It does not start, stop, or monitor 
any programs Itself. The values set by the user with SFFS 
are stored In system common and SCHEO reads uses these 
to 


VII. COMPILE AND LOAD INSTRUCTIONS - 


To compile, load, and save (SP): TR,*SFFS 

To load and save only: TR,*SFFS,LO 

Relevant Files: 


4SFFS - Program source file. 

4SFFSD - System common INCLUDE file. 

?SFFS - SFFS help file. 

‘ “SFES - FMGR transfer file used to compile, load, 

and save SFFS. 

VIII. EXECUTION INSTRUCTIONS - 


For operating instructions refer to the S.F.F.S. 
Operations Manual. 


PADS \S 
OF POOR Q‘J/-LrrY 
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REVISIONS 


Last edited by EDIT: 


LANGUAGE 


<830406. 1406> 


HP Fortran 4X (FTN4X) 


AUTHOR STATISTICS - 


OR)'— kil 
OF POOR C i ' 'TY 


Robert A. Dillon 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Laboratory 
2116 HS-PP Bldg. 

Gainesville, FL 32611 


SPECIAL HARDWARE REQUIRED - 


None. 


OPERATING SYSTEM - 


Hewlett-Packard RTE-IVB or RTE-6/VM 


PROGRAM DESCRIPTION - 


SYSCM 1s part of the Satellite Freeze Forecast System. 

It can be scheduled by a program to retrieve data from 
system common. In this way, the calling program doesn't 
have to INCLUDE &3FFSD (the SFFS system common file). 


COMPILE AND LOAD INSTRUCTIONS 


SYSCM should be loaded permanently 


w 
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To cooplle, load, and save (SP)t TR,SYSCM ■ 1 

Vo load and sava onlyt TR,SYSCH,LO • T 


VIII. EXECUTION INSTRUCTIONS - 


SYSCM can be scheduled with queue and wait by another 
program to retrieve values from SFFS system common. 

Example: 

CALL EXEC(23»5HSYSCM,loffset,len) ! to schedule SYSCM 
CALL EXEC( 14, 1 ,ibufr,len) ! to retrieve the data 

where 

loffset = offset (In words) of the first word of data to 
be returned (loffset for the first word = 1); 
len = number of words to be returned; and 
Ibufr = buffer Into which the data will be returned. 


Oi QviALi I y 
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REVISIONS - 








►IV. 


ORIGINAL PAGE IS 
OF POOR QUALITY 


►II. LANGUAGE - 

HP FTN4X or FTN7X 

►III. AUTHOR STATISTICS - 


Fred D. Stephens 
Scientific Programmer 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 32611 


SPECIAL HARDWARE REQUIRED - 
none 

►V. OPERATING SYSTEM - 

RTE-4B or RTE-6/VM 

►VI. PROGRAM DESCRIPTION - 


Read PMODL predicted temperature file 'KEYDAY', combine with past 
observed temperatures and output in tabular form. 

Description of program parameters 

FSYSU - FTN4X routine to direct Implied read and print statements 
to specified logical unit. 

OPEN - FTN4X builtln function to open file for access. 

CLOSE - FTN4X builtln function to terminate file access. 

ANIN7 - FTN4X library rounding function. 

LGP T - I.lbr'.;’..' rout Ino to doolarc secoaJary storage area for 
larg-a transfers of data using the formattur. 
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$FILES- FTNUX directive to specify the number of files open for 
access at same time. 


IDATA - 
DATA2 - 
DATA3 - 
IBUF - 
RBUFR - 

KFILE - 
KS 

KSN - 
KEYSIT- 
NH 

IFMT - 
IFMT2 - 
lOS - 
STA - 
ITIME - 
I,J,K - 


Array containing combined observed and predicted data. 
1.5 meter observed keystation data. 

Vector equlvalenced to array data. 

Secondary storage for large formatted transfers. 

Buffer used to contain one record of observed data read 
from disk. 

Observed keystation file name 

Keyslte number Including ghost stations* 

Keyslte number excluding ghost stations. 

Keystation number read from keystation file. 

Number of hours of observed data. 

Encoded format storage area. 

Encoded format storage area. 

I/O error code. 

ASCII array of station names. 

ASCII array of operational hours 
Do loop Indexes. 


Remarks 

Observed keystation data should be contiguous In time. 


Subroutines and function subprograms required 
Fortran 4X library 


Method 


Observed keystation data Is read from disk and stored In 
IDATA, Predicted data Is read from the 'KEYDAT' and stored 
In remaining elements of array. Ghost stations are Ignored. 
Format statements are encoded to reflect various amounts 
of observed and predicted data. 


VII. COMPILE AND LOAD INSTRUCTIONS - 


Transfer to *TA3LE to compile, load and SP 


VIII. EXECUTION INSTRUCTIONS - 


BU, TABLE 

On prompting enter observed keystation file name. 


OF POOR QUAUTt 
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I. REVISIONS - 

OF POOR QUAUTY 


II. LANGUAGE - 


HP-FTN4X or HP-FTN7X 


III. AUTHOR STATISTICS - 


Fred Stephens 
Scientific Programmer 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Laboratory 

2116 Horticultural Science - Plant Pathology Building 
Gainesville, Florida 32611 


IV. SPECIAL HARDWARE REQUIRED 


3 HP-91200B color interface cards 
1 HP-12773 modem interface using driver DV.A65 
1 HP-12620A priviegded interrupt fence 

V. OPERATING SYSTEM - 


RTE-IVB or RTE-6/VM 


VI. PROGRAM DESCRIPTION - 


SUBROUTINES 


- POPEN : Schedule the named PTOP pregram at the specified 
node 

I?CB ~ PTOP control block 
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lERR - Error roturn 
NAME - Slave program name 

NODE > The number of the node where the slave 
program resides and where it Is to be 
scheduled for execution. 

ITAG - Tag field; 20 word array 
ICLON - Slave cloning parameter 

> PWRIT t Transfer data from master program to slave program 

IPCB - PTOP control block 
lERR - Error return 
IBUFR - Data buffer 
LEN - Data length in words 
ITAG - Tag field 

- PCONT t Exchange tag field between the master and slave 

IPCB - PTOP control block 
lERR - Error return 
ITAG - Tag field 


PROGRAM FLOW DESCRIPTION 

- Call RMPAR to get node for message to be sent. 

- Call POPEN to schedule slave program TEXS to receive 
messages transmitted from master. 

- Input who message Is for and transmit to TEXS 

- Input your name and transmit to TEXS 
••> - Output prompt 

- Input response from user 

- Cheek if response is an escape character, and If it la 
then call PCONT to stop TEXS then quit. 

- Transmit response to TEXS 

- Clear response buffer 

- loop QF 


PAGE 

POOR QUALITY 


VII. COMPILE AND LOAD INSTRUCTIONS - 


• Transfer to *TEXM to compile, load and save program 


VIII. EXECUTION INSTRUCTIONS - 
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Program TSd is a mastar program that slmulatas a tarmlnal on the 
color monitor using the 91200 tv Interface cards. It allows a user 
to interactively enter information on his terminal and have it 
displayed on the monitor in a 20 row, 40 column format. The 
information is entered one line at a tisie, up to 80 characters 
per line, and scrolled onto the tv screen. To exit the program the 
user need only press the escape (esc) key followed by a return. 

When TEXM is run in default node in G'ville the default monitor 
is ths G'ville monitor. When TEXM is run in default mode in Buskin' 
the default monitor is ths G'vlll monitor. The first parameter 
specified in the rvnstring is the node number of the monitor. 

The node number for Gainesville is 1, the Buskin nods number is 2. 


examples: 


PU,TEXM 
BO, TEXM 
BU,TEXM,1 
BO, TEXM, 2 
RU,TEXM,1 
RU,TEXM,2 


from 

G'ville 

Ruskin 

G'ville 

G'ville 

R-jskin 

Ruskin 


to 

-> G'ville 
— > G'ville 
—> G'ville 
— > Ruskin 
-> G'ville 
— > Ruskin 


TEXM functions by scheduling a program called TEXS and pas; i 
TEXS the information entered from the user keyboard. TEXS 
responsible for only the display of the text information. TEXM is 
only responsible for getting data from the keyboard and passing it 
to TEXS. The TEX programs support all printable ASCII characters. 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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I. REVISIONS - 


II. LANGUAGE - 


HP Fortran 4X 


ORIGJNAL PAGE IS 
OF POOR QUALITY 


III. 


AUTHOR STATISTICS - 


Fred Stephens 
Scientific Progreunmer 
University of Florida 

Institute of Food and Agricultural Sctencl>^s 
Climatology Reaeareh Laboratory 
2116 Horticulture Science - Plant Pathology Bid. 
Gainesville, Florida 32611 


SPECIAL HARDWARE REQUIRED - 


None. 


OPERATING SYSTEM - 


HP BTE-IVB or RTE-IV/VM. 


PROGRAM DESCRIPTION - 


T3MDL subroutines and functions 


PHDCT: create forecast map 
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Parameters : 

DATA - reformatted PMODL forecast data 
SHOUR - starting hour 
EHOUR - ending hour 
lOS - I/O status return 

FXKST: refomat PMODL data 

Parameters: 

DATA - PMODL forecast data 
lOS - I/O status return 

CPMN: create predicted map name 

Parameters; 

OMAP - observed map file name 
PMAP - predicted map file name 
NHRS - prediction length 
SHOUR - starting hour 
EHOUR - ending hour 

SECTR: sectorizes the latest map and places it in a file 
called TSMMAP. 


ORfGfNAL PAtit m 
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Parameters; 

DSS 

DNS 

DSW 

DNW 

SDEN 


WDEN 

SDFM 

DDFN 

ERR 


Starting scan number desired. 

Number of scans desired. 

Starting word (pixels) number desired. 

Number of words (pixels) desired. 

Scan density. 1 means take every scan line, 

2 means take every other scan line, 3 means 
take every 3rd scan line, etc. 

Word density. Like SD but for words (pixels). 
Source map file namr. 

Destination file na-^ie (not namr). It is 
created with security code UF on M2. 

Error return code. 0 if ok. 


PROGRAM FLOW DESCRIPTION 


- get observed map file name from system conuno.i 

- get prediction length(s) from system common 

- call SECTR to get Florida sector 


- open observed map file 

- read predicted keystation data and correct for 
ghost stations (FXKDT) 

- call CPMN to create predicted map file name 

- open predicted map file 

- call PREDICT to create forecast map 


SUDHOUTINE PRDCT 
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- get Index of starting and ending hours 

- sum up keystation effect on a pixel 

- compute predicted pixels for a scan line 

• write predicted scan line to predicted map file 

SUBROUTINE FXKST 

- read in predicted keystation temperatures 

- zero "GHOST" stations and move to rear of matrix 

SUBROUTINE CPMN 


- extract day, month and year from observed map file name 
• calculate Julian day 

- increment starting hour by prediction length 

- increment Julian day if prediction extends beyond current 
day 

- convert to standard date 

- create predicted file name 

SUBROUTINE SECTR 

- create destination data file 

- open source data file 

- read SS,NS,SW,NW for source file 

- write SS,NS,SW,NW,SD,vro for destination file's sector 

- determine records and bytes within records to be used 

- write offset into record 2 of destination file 

- sectorize the map 

- create destination grid file 

- open source grid file 

- position grid bit file to first record of desired sector 
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- sectorize the grid bits 


»VII. 

COMPILE AND LOAD INSTRUCTIONS - 



Transfer to »TSMDL to compile, load and save program 


»VIII. 

EXECUTION INSTRUCTIONS - 



RU,TSMDL 



OR'G?-jAl PAQS {3 
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Ust edited by EDIT: <830409. 1 108> 


REVISIONS - Please Indicate all revisions below. 


II. 


III. 


IV. 


V. 


VI. 


LANGUAGE - 


HP Fortran 4X (FTNUX). 


AUTHOR STATISTICS - 


r , . '• r*-; 

OF. FOUR QUALITY 


Robert A. Dillon 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Departoent 
Climatology Research Laboratory 
2116 Horticulture Science - Plant Pathology Bid, 
Gainesville, Florida 32611 


SPECIAL HARDWARE REQUIRED - 


HP 912003 TV In -erf ace Kit. 
Direct drive HG' monitor. 


OPERATING SYSTEM - 


Hewlett Packard RTE-IVB 


PROGRAM DESCRIPTION - 


TVMAP is a product of the Satellite Freeze Forecast 
System developed by the University of Florlda/Insti- 
tute of Food and Agricultural Sclences/Frult Crops 
repartment'Cli-'.a'r-logy Lab. with NASA and NOAA. 
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TVMAP is a segaanted HP FTN4X program usad to display 
false colored thermal images of Infrared satellite 
data. It displays an eight color picture of a given 
sector of the earth's sufaee where each color Indi- 
cates a certain variable) temperature range. A table 

is displayed showing the ranges In effect. A second 
table Is also displayed giving the map file name and 
the time at which the data were collected. At the 
top is displayed a title giving credit to the agen- 
cies involved in SFFS. 

TVMAP replaces several older programs [TVniS, TVDI3» 
TVMAP(old), etc.]. It was written to be as flexible 
as possible to provide the user with many display 
capabilities. Revisions will be made as new features 
are needed and should be Indicated in section I above* 

Standard features t 

UNINTERPOLATED MAPS - 

The most basic form of map display is the uninterpo- 
lated map. Each ASCII character of data in the 
map files is translated Into a color block on the 
monitor sjreen. The Image is stretched to correct 
for the non-square shape of the data pixels, so the 
blocks of color may vary in size by 1 screen pixel. 

INTERPOLATED MAPS - 

The most commonly used form of map display Is pro- 
bably the Interpolated nap. A simple linear inter- 
polation Is performed first in the y-dlrectlon 
(north-south) then in the x-dlrection (east-west). 
Generally, no screen pixels can be mapped directly 
bviok to the real data, e.g. if a map is three char- 
acters wide (real dati) and it is to be displayed 
as a 10 pixel wide map on the screen, 10 evenly 
spaced pixels will be calculated anong the real 
data by interpolating linearly between the nearest 
real data points. 

Two sizes of Interpolated r.aps are available} 

SINGLE SCREEN - 

One map Is xilsplayed centered on the screen 
as large as poss'ble. 

DOUBLE SCREEN - 

Two maps can be displayed side by side (Left 
and Right 1 cr ere map car he displayed with 
room on the opposite side of the screen for 
enlargements. 

ENLARGEMENTS - 

The user has the option of magnifying an area of 
the map with or without interpolation. If the map 
was displayed lnt«’'po’ ated , any enlargements will 
be Interpolated . Similarly, uninterpolated maps 
hav’ uninterpolate i enlargs^^irts . By moving a 

ORIGINAL f”GE IS 

OF POOR QUALITY 
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wlndow-llke cursor around the screen any area car 
be "marked" and enlarged on another area of the 
screen. 

HELP - 

By entering a question mark in answer to an input 
request by TVMAP, the user can display a set of 
instructions for that request. These Instruc- 
tions are stored in file ?VVMAP and are INCLUDEd 
(FTN4X statanent) below. 

TEMPERATUBE SCALES - 

TVMAP has the capability to display maps having 
different temperature scales. Currently, there 
are three scales In use; 

WASHINGTON'S SCALE - 
13.7 to 96.5 deg.F 

TVMAP uses this scale when the map name begins 
with an "R". Program GAPX acquires R-maps. 

SATELLITE'S SCALE - 

-165.3 to 134.3 deg.F 

This scale is use when the map name begins 
with an "E". It Is a convention to 
neune maps coming directly from the satellite 
with an "E". 

GAP'S TRANSLATED SCALE - 
13.7 to 60.5 deg.F 

This is the scale used by program GAP when 
acquiring maps. If the map name begins with 
a character other than "E" or "R", this scale 
is used. 


PROGRAM LOAD INSTRUCTIONS - 


TVMAP is a segmented program and requires a "ISO page 

mother partition in which to run. The first partition 

of the mother must be 28 pages. 

All files have the security code 'TV'. 

The components of the TVMAP system follow; 

*TVMA? - File manager transfer file used to compile, 
load, and SP all segments onto cartridge 3. 

It will attempt to OF all old selects before 
loading, purge all previously SP ed segments. 
Or’ all the new segments after SP'ing them, 
and purge the relocatable file >TVMAP. Just 
;TR,*TVMAP and go for coffee. . .about 7 min. 

#TVMAP - Loader command file. *TVMAP supplies this 
name to the loader. 

ATVilAP - Main source file. Contains main program 
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PAGE IS 

Of POOR QUALITY (TVMAP) and ten segments (INITL, INPUT, • 

GLOBL, SETUP, UNTRP, MAPID, SCALE, ENLRG, • 
RUSKN and SQNCE) . » 

"TVMAP - COMMON and DIMENSION statements used In » 

many of the segments. The FTN4X INCLUDE • 

statement is used to merge this file into • 
4TVMAP as needed during compilation. • 

?TVMAP - TVMAP help file. This is a file of instruc- • 
tions for each TVMAP question. The user may • 
enter a question mark '?) at any time to ask • 
for help in answering a question. • 

$LIBHS - MIT Haystack Library. Specifically: • 

IRP - Replaces segments (RP) programatic- • 
ally as needed, • 

lOF - Removes segments (OF) programatic- • 

ally at the end of the program. • 

NARG - Retrieves the n'jmber of arguments • 
passed to IRP and lOF. » 

RP - Type 6 file used by IRP. Must be » 

hard loaded in the system (or man- • 
ually SP'ed before running TVMAP). • 

OF - Type 6 file used by lOF. Must be • 

hard loaded in the system (or man- » 
ually SP'ed before running TVMAP). * 

$DSTVL - DS/1000 TV Interface routines. In the RUSfCN • 
segment these are used in place of the normal • 
TV interface routines to display a screen imag* 
on the remote DS node monitor. Specifically: • 

DSVDL - DS version of subroutine VIDLU with • 
a parameter for the DS node number. • 

DSERS - DS version of subroutine ERASE. » 

DSPHT - DS version of subroutine POINT. • 


VIII. PROGRAM EXECUTION INSTRUCTIONS - 


TVMAP may be run in two modes. In the normal interactive 
mode, the user types: 

RU, TVMAP or simply TVMl? 

This will start up TVMAP and clear the screen. 

To suppress clearing the scrfjen, ente~: 

TVMAP, 0 
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By passing the map name and temperature range through 
RMPAR, TVMAP may be scheduled by another program. 

CALL EXEC(9,5HTVMAP,2HM0,2H13,2H11,14,32) 

will run TVMAP with map M01311 at 14-32 deg.F. 

TVMAP will request no Input and will stop execution 
after displaying the map. 


OHIGIMAL PAGE IS 
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Last edited by EDIT; <830406. 1458> 


I. REVISIONS - Please Indicate all revisions below. 


ORIGINAL PAGE IS 

quality 

HP Fortran 4X (FTN4X). 


III. AUTHOR STATISTICS - 


Robert A. Dillon 
University of Florida 

Institute of Food and Agricultural Sciences 
Fruit Crops Department 
Climatology Research Laboratory 

2116 Horticulture Science - Plant Pathology Building 
Gainesville, Florida 32611 


IV . SPECIAL HARDWARE REQUIRED - 


HP 91200B TV Interface Kit. 
Direct drive RGB monitor. 


V. OPERATING SYSTEM - 


Hewlett Packard RTE-IVB or RTE-6/VM. 


VI. PROGRAM DESCRIPTION - 


TVQIK is a product of the Satellite Freeze Forecast 
System developed by the University of Florlda/Instl- 
tute of Food and Agricultural ScLences/Fruit Crops 
Department/Climatology Lab. with NASA and NOAA. 
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TVQIK is a segmented HP FTK4X program used to display 
false 'olored thermal images of infrared satellite 
data. It displays an eight color picture of a given 
sector of the earth's suface where each color indi- 
cates a certain variable temperature range. A legend 
is displayed showing the ranges in effect. A second 
legend is also displayed giving the map file name and 
the time at which the data were collected. At the 
top is displayed a title giving credit to the agen- 
cies involved in SFFS. 

TVQIK is a scaled-down version of TVMAP. It la intended 
to be used as the program for automatic display of newly 
received satellite data. TVQIK automatically displays 
the latest map in the Interpolated mode at the default 
temperature range. All unnecessary segments have been 
removed. TVQIK does not need a mother partition since 
it does not do enlargements. For a complete description 
of map display possibilities see progreun TVMAP. 


PROGRAM LOAD INSTRUCTIONS - 


ORsOSMAL PAGE 13 

OF POOR QUALITY 


All flies have the security code 'TV'. 

The components of the TVQIK system follow; 

•TVQIK - File manager transfer file used to compile, 
load, and SP all segments onto cartridge 3. 

It will attempt to OF all old se^ents before 
loading, PUrge all previously SP ed segments, 
OF all the new segments after SP'ing them, 
and purge the relocatable file JTVQIK. Just 
:TR, •TVQIK and go for coffee. . .about 15 min. 

ffTVQIK - Loader command file. •TVQIK supplies this 
name to the loader. 

4TVQIK - Main source file. Contains main program 
(TVQIK) and ten segments (INITL, INPUT, 

GLOBL, SETUP, UNTRP, MAPID, SCALE, ENLRG, 
RUSKN and SQNCE). 

'TVQIK - COMMON and DIMENSION statements used In 
many of the segments. The FTN4X INCLUDE 
statement Is used to merge this file into 
4TVQIK as needed during compilation. 

7TVQIK - TVQIK help file. This Is a file of Instruc- 
tions for each TVQIK question. The user may 
enter a question mark (?) at any time to ask 
for help In answering a question. 

$LIBHS - MIT Haystack Library. Specifically; 

IRP - Replaces segments (RP) programatlc- 
ally as needed. 
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lOF 

- Removes segments (OF) programatlo- 
ally at the end of the program. 


NARG 

> Retrieves the number of arguments 
passed to IRP and lOF. 


RP 

- Type 6 file used by IRP. Must be 
hard loaded In the system (or man- 
ually SP'ed before running TVQIK). 


OF 

- Type 6 file used by lOF. Must be 
hard loaded In the system (or man- 
ually SP'ed before running TVQIK). 


VIII. PROGRAM EXECUTION INSTRUCTIONS - 


TVQIK may be run from file manager by entering: 
;RU,TVQIX 


This will display the latest map at default temperatures. 



